home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 Janurary / 64er_Magazin_91-01_1991_Markt__Technik_de_Side_A.d64 / 4 gewinnt 2002 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  22 lines
  1. 0 poke53280,0:poke53281,0:printchr$(142);chr$(8)
  2. 1 print"[147]":print"[176]";:fori=1to8:print"[195][178]";:next:print"[195][174]":fori=1to8:fore=1to10:print"[221] ";:next:print:print"[171][195]";
  3. 2 fore=1to8:print"[219][195]";:next:print"[179]":next:fore=1to10:print"[221] ";:next:print:print"[173][192]";:fori=1to8:print"[177][195]";:next:print"[189]"
  4. 3 print"":fori=73to65step-1:printtab(59);chr$(i):next:print" ";:fori=1to9:print"[157]"i;:next
  5. 4 dimk(9,9):fori=1to9:fore=1to9:k(i,e)=32:next:next:print:pl=2
  6. 5 ifpl=2thenpl=1:pt=86:q$="[214]":print"":goto7
  7. 6 pl=2:pt=81:q$="[209]":print""
  8. 7 print"spieler"pl" ("q$") [175][157]";:wait203,64:geta$:printa$;:a=val(a$):ifa>0anda<10then11
  9. 8 ifa$<"a"ora$>"i"thenprint"[145]":goto7
  10. 9 y=asc(a$)-64:fori=2to9:k(i-1,y)=k(i,y):next:k(9,y)=pt:fori=1to9:p=2*i-80*(y-1)
  11. 10 poke1743+p,k(i,y):next:goto13
  12. 11 x=a:fori=8to1step-1:k(x,i+1)=k(x,i):next:k(x,1)=pt:fori=1to9:p=2*x-80*(i-1)
  13. 12 poke1743+p,k(x,i):next
  14. 13 sys2932:e1=peek(680):e2=peek(681)
  15. 14 ife1=0then 5
  16. 15 ife2<>0then18
  17. 16 print:print"game over!   es gewinnt spieler ";:ife1=81thenprint"2 ([209])";:goto19
  18. 17 ife1=86thenprint"1 ([214])";:goto19
  19. 18 print:print"game over!   unentschieden!!";
  20. 19 geta$:ifa$=""then19
  21. 20 run
  22.